home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / misc / RecentScript.lha / RecentScript / Configs / AmFTP ARexx.intro < prev    next >
Encoding:
Text File  |  1997-04-19  |  1.3 KB  |  79 lines
  1. /* ARexx - Download script for AmFTP
  2.  *
  3.  * Script generated by RecentScript
  4. */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. IF ~SHOW('l', "rexxsupport.library") THEN DO
  9.   IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN DO
  10.     SAY "Could not load rexxsupport.library"
  11.     EXIT
  12.   END
  13. END
  14.  
  15. SAY "Search running and idle AMFTP..."
  16.  
  17. oldport = ""
  18. newport = ""
  19.  
  20. DO i=1 TO 5
  21.   port = "AMFTP."i
  22.   IF SHOW(PORTS,port) = 1 THEN DO
  23.     ADDRESS value port
  24.     ISCONNECTED
  25.     connectstate = RESULT
  26.     IF connectstate = 1 THEN DO
  27.       SAY "AMFTP."i" is busy"
  28.     END
  29.     ELSE DO
  30.       SAY "AMFTP."i" is idle"
  31.       IF oldport = "" THEN oldport = port
  32.     END
  33.   END
  34.   ELSE DO
  35.     SAY "AMFTP."i" is not started"
  36.     IF newport = "" THEN newport = port
  37.   END
  38. END
  39.     
  40. IF oldport = "" THEN DO
  41.    SAY "Start new "newport"..."
  42.    ADDRESS COMMAND 'run <>NIL: "%3"'
  43.    DO 3 WHILE ~SHOW(PORTS,newport)
  44.      ADDRESS COMMAND 'WaitForPort 'newport
  45.    END
  46.    IF RC = 5 THEN DO
  47.      SAY "failed"
  48.      EXIT
  49.    END
  50.    SAY "succeded."
  51.    portname = newport
  52. END
  53. ELSE DO
  54.   portname = oldport
  55. END
  56.  
  57. SAY "Using "portname
  58.  
  59. resultport = "RSLT."portname
  60.  
  61. ADDRESS value portname
  62.  
  63. CALL OPENPORT(resultport)
  64.  
  65. SAY "Connecting %1..."
  66. CONNECTHOST "%1"
  67. WAITACTION resultport
  68. CALL WAITPKT resultport
  69.  
  70. ISCONNECTED
  71. connectstate = RESULT
  72. IF connectstate = 0 THEN DO
  73.   SAY "failed"
  74.   EXIT
  75. END
  76.  
  77. SAY "succeeded"
  78. SAY "Getting archives..."
  79.